home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / map.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-09-10  |  16.6 KB  |  188 lines
  1. 10  CLS:KEY OFF:SCREEN 0:WIDTH 80:DEFINT R,S:DIM SCORE(50),R(48)
  2. 55  IF TERRY=1 THEN GOTO 6910
  3. 60  CLS:KEY OFF::I=0:SCREEN 2:
  4. 100  LINE (26,12)-(32,13):LINE-(33,14):LINE-(35,15):LINE-(34,17):LINE-(32,18):LINE-(31,19):LINE-(31,22):LINE-(34,22):LINE-(35,20):LINE-(36,20):LINE-(37,18):LINE-(37,10):LINE-(36,8):LINE-(40,8):LINE-(42,9):LINE-(44,10):LINE-(48,12)
  5. 270  LINE-(54,14):LINE-(62,16):LINE-(70,18):LINE-(78,19):LINE-(86,20):LINE-(102,21):LINE-(134,21):LINE-(150,20):LINE-(165,20):LINE-(165,18):LINE-(168,18):LINE-(168,20):LINE-(172,22):LINE-(176,22):LINE-(182,24):LINE-(186,25):LINE-(192,24)
  6. 440  LINE-(193,24):LINE-(193,25):LINE-(192,26):LINE-(190,28):LINE-(186,30):LINE-(184,32):LINE-(182,34):LINE-(181,36):LINE-(184,35):LINE-(186,34):LINE-(189,34):LINE-(188,36):LINE-(190,36):LINE-(192,35):LINE-(194,34):LINE-(196,32)
  7. 600  LINE-(198,32):LINE-(201,28):LINE-(203,28):LINE-(200,32):LINE-(199,33):LINE-(200,33):LINE-(202,32):LINE-(206,36):LINE-(209,36):LINE-(210,33):LINE-(214,33):LINE-(217,31):LINE-(218,31):LINE-(218,32):LINE-(216,34):LINE-(222,33)
  8. 760  LINE-(223,36):LINE-(221,36):LINE-(220,38):LINE-(218,37):LINE-(217,36):LINE-(214,37):LINE-(211,39):LINE-(208,39):LINE-(206,42):LINE-(203,48):LINE-(202,50):LINE-(208,44):LINE-(208,46):LINE-(206,50):LINE-(205,51):LINE-(204,59)
  9. 970  LINE-(205,64):LINE-(207,68):LINE-(208,70):LINE-(210,70):LINE-(212,68):LINE-(214,64):LINE-(214,62):LINE-(213,60):LINE-(212,56):LINE-(213,54):LINE-(212,53):LINE-(212,48):LINE-(214,46):LINE-(215,48):LINE-(216,44):LINE-(218,42)
  10. 1130  LINE-(217,40):LINE-(220,39):LINE-(224,40):LINE-(226,42):LINE-(226,44):LINE-(228,46):LINE-(227,48):LINE-(225,52):LINE-(226,54):LINE-(227,52):LINE-(228,52):LINE-(229,51):LINE-(231,51):LINE-(232,54):LINE-(232,56):LINE-(233,58)
  11. 1290  LINE-(234,59):LINE-(232,61):LINE-(229,67):LINE-(234,69):LINE-(238,68):LINE-(241,67):LINE-(243,64):LINE-(245,64):LINE-(247,62):LINE-(251,60):LINE-(251,53):LINE-(258,52):LINE-(262,50):LINE-(264,50):LINE-(264,45):LINE-(262,44)
  12. 1450  LINE-(262,43):LINE-(264,43):LINE-(266,40):LINE-(268,36):LINE-(273,35):LINE-(280,32):LINE-(284,31):LINE-(286,28):LINE-(289,28):LINE-(289,24):LINE-(290,22):LINE-(289,21):LINE-(291,15):LINE-(290,12):LINE-(290,9):LINE-(291,9):LINE-(294,11)
  13. 1620  LINE-(296,9):LINE-(298,10):LINE-(301,16):LINE-(303,22):LINE-(306,24):LINE-(310,24):LINE-(310,28):LINE-(307,29):LINE-(304,31):LINE-(304,33):LINE-(302,31):LINE-(299,32):LINE-(299,36):LINE-(294,39):LINE-(296,40):LINE-(294,42)
  14. 1780  LINE-(294,48):LINE-(297,53):LINE-(297,54):LINE-(296,55):LINE-(296,56):LINE-(292,58):LINE-(290,58):LINE-(289,59):LINE-(286,59):LINE-(282,64):LINE-(280,68):LINE-(282,68):LINE-(282,74):LINE-(281,76):LINE-(280,77):LINE-(277,77)
  15. 1940  LINE-(274,76):LINE-(279,81):LINE-(277,83):LINE-(278,86):LINE-(277,90):LINE-(278,93):LINE-(277,95):LINE-(276,92):LINE-(276,88):LINE-(274,86):LINE-(273,84):LINE-(272,77):LINE-(270,80):LINE-(270,86):LINE-(272,89):LINE-(274,92)
  16. 2100  LINE-(274,94):LINE-(275,96):LINE-(278,100):LINE-(280,102):LINE-(280,105):LINE-(276,110):LINE-(278,110):LINE-(277,112):LINE-(274,112):LINE-(270,115):LINE-(269,119):LINE-(266,120):LINE-(264,122):LINE-(262,126):LINE-(258,132)
  17. 2250  LINE-(256,132):LINE-(252,140):LINE-(252,142):LINE-(254,152):LINE-(258,160):LINE-(262,164):LINE-(266,172):LINE-(266,182):LINE-(265,184):LINE-(262,186):LINE-(260,184):LINE-(258,180):LINE-(256,180):LINE-(255,179):LINE-(252,174)
  18. 2400  LINE-(252,173):LINE-(250,173):LINE-(248,169):LINE-(248,166):LINE-(247,167):LINE-(246,166):LINE-(246,160):LINE-(238,152):LINE-(236,152):LINE-(236,155):LINE-(234,156):LINE-(228,156):LINE-(226,152):LINE-(214,152):LINE-(212,153)
  19. 2550  LINE-(207,153):LINE-(206,152):LINE-(200,154):LINE-(194,153):LINE-(194,155):LINE-(199,159):LINE-(203,157):LINE-(202,160):LINE-(202,161):LINE-(203,162):LINE-(200,162):LINE-(199,163):LINE-(198,163):LINE-(197,164):LINE-(194,164)
  20. 2700  LINE-(192,162):LINE-(191,159):LINE-(191,157):LINE-(189,156):LINE-(189,157):LINE-(187,157):LINE-(186,156):LINE-(185,160):LINE-(172,160):LINE-(162,167):LINE-(162,168):LINE-(160,168):LINE-(159,167):LINE-(158,168):LINE-(157,171)
  21. 2850  LINE-(153,176):LINE-(152,178):LINE-(152,180):LINE-(154,188):LINE-(152,188):LINE-(150,187):LINE-(146,186):LINE-(142,184):LINE-(140,182):LINE-(138,180):LINE-(136,172):LINE-(133,168):LINE-(131,166):LINE-(130,162):LINE-(130,160)
  22. 3000  LINE-(126,158):LINE-(119,158):LINE-(118,160):LINE-(115,164):LINE-(110,160):LINE-(106,158):LINE-(106,153):LINE-(104,150):LINE-(102,148):LINE-(100,144):LINE-(97,140):LINE-(86,140):LINE-(86,142):LINE-(83,142):LINE-(70,140):LINE-(48,128)
  23. 3160  LINE-(48,126):LINE-(34,124):LINE-(34,120):LINE-(30,113):LINE-(26,110):LINE-(25,108):LINE-(18,106):LINE-(18,104):LINE-(16,100):LINE-(13,98):LINE-(13,95):LINE-(14,94):LINE-(12,90):LINE-(13,88):LINE-(13,85):LINE-(12,84):LINE-(12,82)
  24. 3330  LINE-(10,80):LINE-(10,68):LINE-(9,66):LINE-(9,63):LINE-(12,56):LINE-(13,54):LINE-(13,51):LINE-(14,49):LINE-(14,46):LINE-(15,44):LINE-(16,45):LINE-(18,40):LINE-(22,32):LINE-(22,30):LINE-(24,24):LINE-(24,21):LINE-(26,20):LINE-(25,18)
  25. 3510  LINE-(25,16):LINE-(24,14):LINE-(26,12):PSET (220,37),3:PSET (219,40),3:IF I=0 THEN GOTO 6700
  26. 3570  PSET (219,39),1:PSET (220,38),1:PAINT (1,1),1,3:PAINT (210,50),1,3:PAINT (100,100),2,1:LINE (286,28)-(286,29),1:LINE-(288,32),1:LINE-(290,36),1:LINE-(292,40),1:LINE-(294,44),1:LINE (285,30)-(285,32),1:LINE-(285,33),1:LINE-(285,40),1
  27. 3750  LINE-(284,43),1:LINE-(284,50),1:LINE-(281,51),1:LINE-(280,48),1:LINE-(278,43),1:LINE-(277,40),1:LINE-(275,34),1:LINE (294,46)-(290,48),1:LINE-(284,50),1:LINE-(281,51),1:LINE-(282,56),1:LINE-(286,55),1:LINE-(290,54),1:LINE-(294,54),1
  28. 3890  LINE-(296,55),1:LINE (290,54)-(291,58),1:LINE (282,56)-(283,62),1:LINE (282,64)-(280,62),1:LINE-(276,62),1:LINE-(274,61),1:LINE-(273,56),1:LINE-(270,56),1:LINE-(249,64),1:LINE-(248,62),1:LINE (276,62)-(274,64),1:LINE-(274,68),1
  29. 4050  LINE-(277,71),1:LINE-(277,73),1:LINE-(276,74),1:LINE-(274,76),1:LINE-(278,78),1:LINE-(278,79),1:LINE (245,64)-(249,80),1:LINE-(273,75),1:LINE-(273,77),1:LINE-(274,77),1:LINE-(274,76),1:LINE (254,79)-(255,82),1:LINE-(260,80),1
  30. 4180  LINE-(264,80),1:LINE-(267,81),1:LINE-(269,81),1:LINE-(269,86),1:LINE-(270,86),1:LINE (273,76)-(275,85),1:LINE-(278,84),1:LINE (259,81)-(259,83),1:LINE-(256,86),1:LINE-(256,88),1:LINE-(254,88),1:LINE-(251,96),1:LINE-(248,98),1
  31. 4310  LINE-(245,99),1:LINE-(243,98),1:LINE-(241,100),1:LINE-(238,101),1:LINE-(238,102),1:LINE-(234,104),1:LINE-(248,104),1:LINE-(278,99),1:LINE (244,104)-(238,110),1:LINE-(234,112),1:LINE-(231,115),1:LINE-(250,113),1:LINE-(253,115),1
  32. 4440  LINE-(260,114),1:LINE-(265,115),1:LINE-(269,118),1:LINE (238,114)-(238,120),1:LINE-(240,120),1:LINE-(241,124),1:LINE-(242,124),1:LINE-(253,136),1:LINE (231,116)-(222,118),1:LINE-(226,128),1:LINE-(228,136),1:LINE-(230,144),1
  33. 4560  LINE-(231,148),1:LINE-(247,148),1:LINE-(248,150),1:LINE-(250,146),1:LINE-(253,146),1:LINE (231,148)-(214,148),1:LINE-(214,152),1:LINE (210,153)-(208,119),1:LINE-(222,118),1:LINE (208,119)-(197,120),1:LINE-(192,128),1:LINE-(190,132),1
  34. 4680  LINE-(192,132),1:LINE-(192,136),1:LINE-(193,140),1:LINE-(192,144),1:LINE-(190,148),1:LINE-(190,152),1:LINE-(194,158),1:LINE-(198,158),1:LINE (197,120)-(198,117),1:LINE-(198,110),1:LINE-(230,107),1:LINE-(234,104),1
  35. 4800  LINE (199,110)-(200,108),1:LINE-(202,107),1:LINE-(201,105),1:LINE-(202,104),1:LINE-(204,104),1:LINE-(206,102),1:LINE-(208,98),1:LINE-(210,97),1:LINE-(221,97),1:LINE-(221,96),1:LINE-(220,95),1:LINE-(220,93),1:LINE-(222,92),1
  36. 4930  LINE-(222,90),1:LINE-(224,90),1:LINE-(224,86),1:LINE-(226,86),1:LINE-(230,89),1:LINE-(233,89),1:LINE-(235,88),1:LINE-(238,90),1:LINE-(238,94),1:LINE-(242,96),1:LINE-(243,98),1:LINE (238,90)-(240,86),1:LINE-(241,86),1:LINE-(245,82),1
  37. 5070  LINE-(246,80),1:LINE-(246,79),1:LINE-(248,76),1:LINE (224,86)-(222,68),1:LINE (229,67)-(212,68),1:LINE (209,70)-(209,88),1:LINE-(207,94),1:LINE-(207,100),1:LINE (201,105)-(200,104),1:LINE-(199,103),1:LINE-(199,102),1:LINE-(194,96),1
  38. 5190  LINE-(194,92),1:LINE-(192,92),1:LINE-(189,88),1:LINE-(187,86),1:LINE-(187,84),1:LINE-(188,80),1:LINE-(190,77),1:LINE-(189,74),1:LINE-(193,72),1:LINE-(193,70),1:LINE-(192,68),1:LINE-(188,64),1:LINE (205,64)-(188,64),1:LINE-(186,60),1
  39. 5330  LINE-(186,54),1:LINE-(180,52),1:LINE-(179,50),1:LINE-(178,50),1:LINE-(178,43),1:LINE-(181,40),1:LINE-(181,36),1:LINE-(183,35),1:LINE (192,35)-(193,38),1:LINE-(198,40),1:LINE-(201,40),1:LINE-(203,41),1:LINE-(204,45),1
  40. 5460  LINE (158,20)-(158,30),1:LINE-(159,31),1:LINE-(159,39),1:LINE-(160,40),1:LINE-(160,43),1:LINE-(158,44),1:LINE-(158,46),1:LINE-(160,47),1:LINE-(160,60),1:LINE-(186,60),1:LINE (160,60)-(159,60),1:LINE-(159,62),1:LINE-(158,63),1
  41. 5590  LINE-(158,66),1:LINE-(160,68),1:LINE-(162,72),1:LINE-(162,80),1:LINE-(189,80),1:LINE (162,80)-(164,82),1:LINE-(164,83),1:LINE-(166,84),1:LINE-(168,85),1:LINE-(167,88),1:LINE-(168,90),1:LINE-(169,91),1:LINE-(169,92),1:LINE-(170,92),1
  42. 5730  LINE-(170,110),1:LINE-(196,110),1:LINE-(198,112),1:LINE (170,110)-(170,132),1:LINE-(173,132),1:LINE-(174,133),1:LINE-(174,136),1:LINE-(192,136),1:LINE (174,136)-(172,140),1:LINE-(172,142),1:LINE-(176,146),1:LINE-(178,150),1
  43. 5850  LINE-(178,154),1:LINE-(176,160),1:LINE (123,21)-(122,40),1:LINE-(159,42),1:LINE (122,40)-(120,62),1:LINE-(156,64),1:LINE-(158,65),1:LINE (120,62)-(118,75),1:LINE-(128,76),1:LINE-(128,84),1:LINE-(166,84),1:LINE (128,84)-(128,106),1
  44. 5970  LINE-(170,106),1:LINE (128,106)-(122,106),1:LINE-(121,110),1:LINE-(138,110),1:LINE-(138,124),1:LINE-(142,125),1:LINE-(143,127),1:LINE-(150,128),1:LINE-(158,130),1:LINE-(161,130),1:LINE-(165,129),1:LINE-(170,132),1
  45. 6090  LINE (121,110)-(118,140),1:LINE-(97,140),1:LINE (80,141)-(88,102),1:LINE-(122,106),1:LINE (88,102)-(91,72),1:LINE-(118,75),1:LINE (91,72)-(80,70),1:LINE-(86,42),1:LINE-(122,46),1:LINE (86,44)-(78,43),1:LINE-(74,43),1:LINE-(72,34),1
  46. 6210  LINE-(71,33),1:LINE-(69,34),1:LINE-(68,34),1:LINE-(71,27),1:LINE-(67,22),1:LINE-(68,18),1:LINE (63,17)-(57,32),1:LINE-(59,33),1:LINE-(56,36),1:LINE-(56,40),1:LINE-(55,42),1:LINE-(55,44),1:LINE-(54,46),1:LINE-(52,53),1:LINE-(52,55),1
  47. 6360  LINE-(51,56),1:LINE-(82,64),1:LINE (66,60)-(58,96),1:LINE-(88,102),1:LINE (58,96)-(58,102),1:LINE-(57,102),1:LINE-(54,100),1:LINE-(52,108),1:LINE-(54,112),1:LINE-(54,116),1:LINE-(52,116),1:LINE-(48,123),1:LINE-(49,124),1
  48. 6490  LINE-(49,126),1:LINE-(48,126),1:LINE (56,37)-(54,36),1:LINE-(53,37),1:LINE-(46,35),1:LINE-(42,34),1:LINE-(38,32),1:LINE-(36,32),1:LINE-(34,31),1:LINE-(33,31),1:LINE-(34,30),1:LINE-(29,27),1:LINE-(26,26),1:LINE-(24,26),1
  49. 6630  LINE (14,46)-(51,56),1:LINE (36,52)-(28,73),1:LINE-(52,108),1:GOTO 7260
  50. 6700  PSET (392,166):DRAW"E4R8G4L8D32R44E4U32L8G4R8E4G4D32U32L8D28L28U28E4D28G4E4R20":PSET (472,166):DRAW"E4R48G4L48D18R40D6L35G4R40U4D4L40D4R48E4U18G4D18U18L40E4R40L40U6D6G4U10R40U4D4E4U4":PSET (556,166)
  51. 6750  DRAW"E4R48G4L48D32R8E4U12D12G4U16R32D16R8U32D32E4U32G4L8BD4D8L32U8R32D4L24U4D4G4":DIM UU(1240):GET (390,159)-(620,199),UU:FOR I=1 TO 17:PUT (390,(160-(I*8))),UU,XOR:PUT (390,(160-(I*8))),UU,XOR:NEXT I:PUT (390,10),UU,XOR
  52. 6830  T$="BY  TERRY  EIKAMP                               ":FOR I=1 TO 27:LOCATE 12,(81-I):PRINT LEFT$(T$,I):FOR YY=1 TO 120:NEXT YY:NEXT I:BEEP:LOCATE 15,50:PRINT"PRESS ANY KEY TO CONTINUE":FOR I=1 TO 100:NEXT I:BEEP
  53. 6899  Z$=INKEY$:IF Z$="" THEN GOTO 6899
  54. 6900  TERRY=1
  55. 6901  CLS:KEY OFF:SCREEN 0:WIDTH 80:INPUT"ENTER A NUMBER BETWEEN 1 AND 99";XX:IF XX<100 AND XX>0 THEN GOTO 55
  56. 6904  SCREEN 0:COLOR 0,7:LOCATE 12,30:PRINT"PLEASE: A NUMBER NOT > 99, NOT < 1":COLOR 7,0:FOR I=1 TO 5000:NEXT I:GOTO 6901
  57. 6910  CLS:BEEP:GETOUT=0:SCORE=0:Z$=" ":SCREEN 0:WIDTH 80:COLOR 4:LOCATE 3,28:PRINT"U.S.A.  A  KNOWLEGE  TOOL":LOCATE 5,32:PRINT"BY  TERRY EIKAMP":LOCATE 10,20:PRINT"1. REVIEW THE STATES AND THEIR CAPITALS"
  58. 6970  LOCATE 12,20:PRINT"2. TEST ON THE STATES OF THE  U.S.A.":LOCATE 14,20:PRINT"3. TEST ON THE CAPITALS OF THE STATES":LOCATE 16,20:PRINT"4. END PROGRAM":LOCATE 19,20:INPUT"ENTER THE NUMBER OF YOUR CHOICE ";CHOICE
  59. 7010  IF CHOICE=4 THEN CLS:COLOR 7:GOTO 10000
  60. 7015  MAX=48:FOR I=1 TO MAX:R(I)=I:NEXT :IF CHOICE=2 GOTO 7170
  61. 7030  IF CHOICE=3 GOTO 7090
  62. 7040  CLS:PRINT"   THIS PART OF THE U.S.A. PROGRAM GIVES YOU A REVIEW OF THE STATES AND THEIR   CAPITALS. THE STATE SHOWN IN THE COLOR RED IS RANDOMLY GENERATED. TO REVIEW MORESTATES JUST PRESS THE SPACE BAR."
  63. 7060  LOCATE 12,20:PRINT"PRESS ANY KEY TO CONTINUE"
  64. 7070  Z$=INKEY$:IF Z$="" THEN GOTO 7070
  65. 7080  GOTO 7240
  66. 7090  CLS:PRINT"  THIS PART OF THE U.S.A. PROGRAM GIVES YOU A TEST ON THE CAPITAL OF THE STATES.THE STATE WILL BE SHOWN AT THE TOP OF THE SCREEN AND IT WILL BE FILLED IN ON THEMAP IN RED."
  67. 7110  PRINT:PRINT"  YOU MUST ENTER IN THE CORRECT CAPITAL OF THE STATE SHOWN. SPELLING COUNTS BUT YOU NEED ONLY TO ENTER THE FIRST 5 LETTERS OF EACH CAPITAL."
  68. 7120  PRINT:PRINT"  YOU WILL BE GIVEN 3 CHANCES TO ANSWER WITH THE CORRECT CAPITAL.  IF YOU ARE   STILL WRONG AFTER 3 CHANCES THE CORRECT ANSWER WILL BE SHOWN ON THE SCREEN."
  69. 7140  LOCATE 23,20:PRINT"PRESS ANY KEY TO CONTINUE"
  70. 7150  Z$=INKEY$:IF Z$="" THEN GOTO 7150
  71. 7160  GOTO 7240
  72. 7170  CLS:PRINT"  THIS PART OF THE U.S.A. PROGRAM GIVES YOU A TEST ON THE STATES. YOU MUST ENTERTHE NAME OF THE STATE SHOWN IN RED."
  73. 7190  PRINT:PRINT"  SPELLING COUNTS BUT YOU ONLY HAVE TO ENTER THE FIRST 5 LETTERS OF THE STATE.  WHEN ENTERING STATES THAT START WITH NORTH,SOUTH,WEST YOU MUST ENTER THEM AS N. S. W. (EXAMPLE NORTH DAKOTA MUST BE ENTERED AS N. DAKOTA OR N. DAK)"
  74. 7200  PRINT:PRINT"  YOU WILL BE GIVEN 3 CHANCES TO ANSWER WITH THE CORRECT STATE. IF YOU ARE STILLWRONG AFTER 3 CHANCES THE CORRECT ANSWER WILL BE SHOWN ON THE SCREEN."
  75. 7220  LOCATE 23,20:PRINT"PRESS ANY KEY TO CONTINUE"
  76. 7230  Z$=INKEY$:IF Z$="" THEN GOTO 7230
  77. 7240  IF I=1 THEN GOTO 7260
  78. 7250  SCREEN 1:COLOR 1,0:I=I+1:GOTO 100
  79. 7260  '
  80. 7270  PAINT (294,24),0,1:PAINT (290,44),0,1:PAINT (280,40),0,1:PAINT (286,52),0,1:PAINT (294,56),0,1:PAINT (286,57),0,1:PAINT (270,40),0,1:PAINT (278,64),0,1:PAINT (262,70),0,1:PAINT (276,80),0,1:PAINT (268,79),0,1:PAINT (262,88),0,1
  81. 7390  PAINT (256,88),0,1:PAINT (256,110),0,1:PAINT (256,120),0,1:PAINT (240,130),0,1:PAINT (240,150),0,1:PAINT (220,130),0,1:PAINT (200,130),0,1:PAINT (220,110),0,1:PAINT (230,96),0,1:PAINT (230,80),0,1:PAINT (220,56),0,1:PAINT (200,36),0,1
  82. 7510  PAINT (200,50),0,1:PAINT (200,80),0,1:PAINT (246,88),0,1:PAINT (214,88),0,1:PAINT (174,40),0,1:PAINT (174,70),0,1:PAINT (174,90),0,1:PAINT (174,120),0,1:PAINT (180,140),0,1:PAINT (150,140),0,1:PAINT (150,120),0,1:PAINT (150,90),0,1
  83. 7630  PAINT (150,70),0,1:PAINT (150,50),0,1:PAINT (150,30),0,1:PAINT (100,30),0,1:PAINT (100,50),0,1:PAINT (100,90),0,1:PAINT (100,120),0,1:PAINT (70,120),0,1:PAINT (70,90),0,1:PAINT (70,40),0,1:PAINT (40,20),0,1:PAINT (40,40),0,1
  84. 7750  PAINT (40,70),0,1:PAINT (40,120),0,1:ON CHOICE GOTO 7810,8460,9040
  85. 7810  XX=XX+1:C=2:RANDOMIZE XX:RHIT=RND*MAX+0.5:S=R(RHIT):GOSUB 7960:LOCATE 1,10:PRINT"THE STATE IN RED IS":LOCATE 23,22:PRINT"'+` TO END":LOCATE 22,2:PRINT C$:LOCATE 23,2:PRINT N$
  86. 7900  Z$=INKEY$:IF Z$=""THEN GOTO 7900
  87. 7910  C=0:GOSUB 7960:PAINT (20,180),1,1:IF Z$="+" THEN GOTO 6910
  88. 7945  SWAP R(RHIT),R(MAX):MAX=MAX-1:IF MAX>0 THEN 7810 ELSE 6910
  89. 7960  IF S<25 THEN ON S GOTO 7965,7970,7980,7990,8000,8010,8020,8030,8040,8050,8060,8070,8080,8090,8100,8110,8120,8130,8140,8150,8160,8170,8180,8190
  90. 7962  SI=S-24:ON SI GOTO 8200,8210,8220,8230,8240,8250,8260,8270,8280,8290,8300,8310,8320,8330,8340,8350,8360,8370,8380,8390,8400,8410,8420,8430
  91. 7965  N$="ALABAMA":C$="MONTGOMERY":PAINT (220,130),C,1:RETURN
  92. 7970  N$="ARIZONA":C$="PHOENIX":PAINT (70,120),C,1:RETURN
  93. 7980  N$="NEW MEXICO":C$="SANTA FE":PAINT (90,120),C,1:RETURN
  94. 7990  N$="ARKANSAS":C$="LITTLE ROCK":PAINT (180,120),C,1:RETURN
  95. 8000  N$="CALIFORNIA":C$="SACRAMENTO":PAINT (40,120),C,1:RETURN
  96. 8010  N$="COLORADO":C$="DENVER":PAINT (110,90),C,1:RETURN
  97. 8020  N$="CONNECTICUT":C$="HARTFORD":PAINT (288,57),C,1:RETURN
  98. 8030  N$="RHODE ISLAND":C$="PROVIDENCE":PAINT (294,56),C,1:RETURN
  99. 8040  N$="DELAWARE":C$="DOVER":PAINT (276,81),C,1:RETURN
  100. 8050  N$="MARYLAND":C$="ANNAPOLIS":PAINT (268,78),C,1:RETURN
  101. 8060  N$="FLORIDA":C$="TALLAHASSEE":PAINT (260,176),C,1:RETURN
  102. 8070  N$="GEORGIA":C$="ATLANTA":PAINT (250,142),C,1:RETURN
  103. 8080  N$="IDAHO":C$="BOISE":PAINT (70,50),C,1:RETURN
  104. 8090  N$="ILLINOIS":C$="SPRINGFIELD":PAINT (200,80),C,1:RETURN
  105. 8100  N$="INDIANA":C$="INDIANAPOLIS":PAINT (214,80),C,1:RETURN
  106. 8110  N$="IOWA":C$="DES MOINES":PAINT (170,70),C,1:RETURN
  107. 8120  N$="KANSAS":C$="TOPEKA":PAINT (150,90),C,1:RETURN
  108. 8130  N$="KENTUCKY":C$="FRANKFORT":PAINT (214,100),C,1:RETURN
  109. 8140  N$="LOUISIANA":C$="BATON ROUGE":PAINT (180,140),C,1:RETURN
  110. 8150  N$="MAINE":C$="AUGUSTA":PAINT (294,20),C,1:RETURN
  111. 8160  N$="MASSACHUSETTS":C$="BOSTON":PAINT (290,52),C,1:RETURN
  112. 8170  N$="MICHIGAN":C$="LANSING":PAINT (220,50),C,1:PAINT (206,38),C,1:RETURN
  113. 8180  N$="MINNESOTA":C$="ST PAUL":PAINT (180,28),C,1:RETURN
  114. 8190  N$="MISSISSIPPI":C$="JACKSON":PAINT (200,140),C,1:RETURN
  115. 8200  N$="MISSOURI":C$="JEFFERSON CITY":PAINT (180,90),C,1:RETURN
  116. 8210  N$="MONTANA":C$="HELENA":PAINT (100,30),C,1:RETURN
  117. 8220  N$="NEBRASKA":C$="LINCOLN":PAINT (140,70),C,1:RETURN
  118. 8230  N$="NEVADA":C$="CARSON CITY":PAINT (40,70),C,1:RETURN
  119. 8240  N$="UTAH":C$="SALT LAKE CITY":PAINT (70,70),C,1:RETURN
  120. 8250  N$="NEW HAMPSHIRE":C$="CONCORD":PAINT (290,40),C,1:RETURN
  121. 8260  N$="VERMONT":C$="MONTPELIER":PAINT (282,40),C,1:RETURN
  122. 8270  N$="NEW JERSEY":C$="TRENTON":PAINT (280,70),C,1:RETURN
  123. 8280  N$="NEW YORK":C$="ALBANY":PAINT (280,56),C,1:RETURN
  124. 8290  N$="N. CAROLINA":C$="RALEIGH":PAINT (270,110),C,1:RETURN
  125. 8300  N$="N. DAKOTA":C$="BISMARCK":PAINT (140,30),C,1:RETURN
  126. 8310  N$="S. DAKOTA":C$="PIERRE":PAINT (140,50),C,1:RETURN
  127. 8320  N$="OHIO":C$="COLUMBUS":PAINT (240,70),C,1:RETURN
  128. 8330  N$="OKLAHOMA":C$="OKLAHOMA CITY":PAINT (150,120),C,1:RETURN
  129. 8340  N$="OREGON":C$="SALEM":PAINT (50,40),C,1:RETURN
  130. 8350  N$="PENNSYLVANIA":C$="HARRISBURG":PAINT (260,70),C,1:RETURN
  131. 8360  N$="S. CAROLINA":C$="COLUMBIA":PAINT (254,120),C,1:RETURN
  132. 8370  N$="TENNESSEE":C$="NASHVILLE":PAINT (210,116),C,1:RETURN
  133. 8380  N$="TEXAS":C$="AUSTIN":PAINT (140,150),C,1:RETURN
  134. 8390  N$="VIRGINA":C$="RICHMOND":PAINT (260,90),C,1:RETURN
  135. 8400  N$="WASHINGTON":C$="OLYMPIA":PAINT (40,24),C,1:RETURN
  136. 8410  N$="W. VIRGINIA":C$="CHARLESTON":PAINT (246,88),C,1:RETURN
  137. 8420  N$="WISCONSIN":C$="MADISON":PAINT (200,50),C,1:RETURN
  138. 8430  N$="WYOMING":C$="CHEYENNE":PAINT (100,60),C,1:RETURN
  139. 8440  RETURN
  140. 8450  IF S=8 OR S=50 THEN N$="RHODE ISLAND" :C$="PROVIDENCE":PAINT (294,56),C,1:RETURN
  141. 8460  XX=XX+1:C=2:RANDOMIZE XX:RHIT=RND*MAX+0.5:S=R(RHIT):GOSUB 7960:LOCATE 1,10:PRINT"THE STATE IN RED IS":LOCATE 23,22:PRINT"'+` TO END"
  142. 8530  LOCATE 25,2:INPUT;" ";ANSWER$:GETOUT=GETOUT+1:IF LEFT$(ANSWER$,1)="+" THEN Z$="+"
  143. 8560  IF LEFT$(ANSWER$,5)=LEFT$(N$,5) THEN GOTO 8710
  144. 8570  IF LEFT$(ANSWER$,1)="+" AND GETOUT<2 THEN GOTO 6910
  145. 8580  IF LEFT$(ANSWER$,1)="+" THEN Z$="+":GOTO 8790
  146. 8590  LOCATE 24,2:PRINT"WRONG",:BEEP:FOR I=1 TO 1000:NEXT I:COUNT=COUNT+1:PAINT (20,190),1,1:IF COUNT<3 THEN GOTO 8530
  147. 8640  LOCATE 23,2:PRINT"CORRECT";:LOCATE 24,2:PRINT"STATE IS";:LOCATE 25,2:PRINT N$;:SCORE=SCORE+1:SCORE(SCORE)=S:FOR I=1 TO 3000:NEXT I:PAINT (20,190),1,1:IF Z$="+" THEN GOTO 8790
  148. 8700  GOTO 8790
  149. 8710  LOCATE 24,2:PRINT"CORRECT";:BEEP:SWAP R(RHIT),R(MAX):MAX=MAX-1:IF MAX=0 GOTO 8840
  150. 8750  FOR I=1 TO 1000:NEXT I:PAINT (20,190),1,1:FOR I=1 TO 1000:NEXT I:PAINT (20,190),1,1
  151. 8790  C=0:COUNT=0:GOSUB 7960:IF Z$="+" THEN GOTO 8840
  152. 8830  GOTO 8460
  153. 8840  IF SCORE<1 THEN 9030
  154. 8845  PAINT (150,5),1,1:FOR I=1 TO SCORE:IF GETOUT<2 THEN GOTO 6910
  155. 8870  S=SCORE(I):C=2:GOSUB 7960:LOCATE 20,2:PRINT"CORRECT":PAINT (20,195),1,1:LOCATE 21,2:PRINT"ANSWERS WERE":IF CHOICE=3 THEN LOCATE 22,2:PRINT C$
  156. 8930  LOCATE 23,2:PRINT N$:BEEP:FOR B=1 TO (CHOICE*1000):NEXT B:IF I=SCORE THEN GOTO 8990
  157. 8970  PAINT (20,180),1,1:NEXT I
  158. 8990  FOR B=1 TO (CHOICE*1000):NEXT B:LOCATE 22,2:PRINT"        ":PAINT (20,180),1,1
  159. 9020  Z$=INKEY$:IF Z$="" THEN GOTO 9020
  160. 9030  CLEAR:GOTO 6910
  161. 9040  XX=XX+1:C=2:RANDOMIZE XX:RHIT=RND*MAX+0.5:S=R(RHIT):GOSUB 7960:LOCATE 1,8:PRINT"THE CAPITAL OF ";N$;" IS":LOCATE 23,22:PRINT"'+` TO END"
  162. 9110  LOCATE 25,2:INPUT;" ";ANSWER$:GETOUT=GETOUT+1:IF LEFT$(ANSWER$,1)="+" THEN Z$="+"
  163. 9140  IF LEFT$(ANSWER$,5)=LEFT$(C$,5) THEN GOTO 9300
  164. 9150  IF LEFT$(ANSWER$,1)="+" AND GETOUT<2 THEN GOTO 6910
  165. 9160  IF LEFT$(ANSWER$,1)="+" THEN Z$="+":GOTO 9390
  166. 9170  LOCATE 24,2:PRINT"WRONG";:BEEP:FOR I=1 TO 1000:NEXT I:COUNT=COUNT+1:PAINT (20,190),1,1:IF COUNT<3 THEN GOTO 9110
  167. 9220  LOCATE 23,2:PRINT"CORRECT";:LOCATE 24,2:PRINT"CAPITAL IS";:LOCATE 25,2:PRINT C$;:FOR I=1 TO 3000:NEXT I:SCORE=SCORE+1:SCORE(SCORE)=S:PAINT (150,5),1,1:PAINT (20,190),1,1:IF Z$="+" THEN GOTO 9390
  168. 9290  GOTO 9390
  169. 9300  LOCATE 24,2:PRINT"CORRECT";:BEEP:SWAP R(RHIT),R(MAX):MAX=MAX-1:IF MAX=0 GOTO 9440
  170. 9340  FOR I=1 TO 1000:NEXT I:PAINT (20,190),1,1:PAINT (150,5),1,1:FOR I=1 TO 1000:NEXT I:PAINT (20,190),1,1
  171. 9390  C=0:COUNT=0:GOSUB 7960:IF Z$="+" THEN GOTO 9440
  172. 9430  GOTO 9040
  173. 9440  GOTO 8840
  174. 10000  CLS:WIDTH 80:SCREEN 0:COLOR 7,0:LOCATE 10,10:PRINT"For your instatiable thirst for knowledge":GOSUB 10300:LOCATE 12,15:PRINT"your dedication and devotion to higher ideals"
  175. 10003  GOSUB 10300:LOCATE 14,15:PRINT"your excellent taste in computer programs":GOSUB 10300:LOCATE 17,15:PRINT"I SALUTE YOU...":GOSUB 10300:CLS:COLOR 7,1,0:WIDTH 40:X=24:Y=0
  176. 10010  LOCATE X,1:PRINT" * * * * * * ";:LOCATE X,14:FOR I=15 TO 40:IF Y=0 OR Y=4 OR Y=8 OR Y=1 OR Y=5 OR Y=9 THEN COLOR 4 ELSE COLOR 7
  177. 10040  PRINT CHR$(219);:LOCATE X,I::NEXT I:LOCATE X,40:PRINT CHR$(219);:COLOR 7:Y=Y+1:IF X=24 THEN X=X-1:GOTO 10010
  178. 10069  IF Y>=10 THEN GOTO 10140
  179. 10070  LOCATE (X+1),1:PRINT"  * * * * *  ";:LOCATE (X+1),14:FOR I=15 TO 40:IF Y=0 OR Y=4 OR Y=8 OR Y=1 OR Y=5 OR Y=9 THEN COLOR 7 ELSE COLOR 4
  180. 10090  PRINT CHR$(219);:LOCATE (X+1),I:NEXT I:LOCATE (X+1),40:PRINT CHR$(219);:X=X+1:GOTO 10010
  181. 10140  Z=0:PRINT:FOR I=1 TO 40:LOCATE 23,I:IF I>13 THEN COLOR 4 ELSE COLOR 1
  182. 10165  PRINT CHR$(219);:NEXT I
  183. 10180  PRINT:FOR I=1 TO 40:LOCATE 23,I:IF Z=0 OR Z=1 OR Z=4 OR Z=5 OR Z=8 OR Z=9 OR Z=12 OR Z=13 THEN COLOR 7 ELSE COLOR 4
  184. 10210  IF Z=12 THEN GOTO 10260
  185. 10220  PRINT CHR$(219);:NEXT I:Z=Z+1:GOTO 10180
  186. 10260  COLOR 7,0,0:LOCATE 25,17:PRINT"THE END";:GOSUB 10300:GOSUB 10300:CLS:SCREEN 0:WIDTH 80:END
  187. 10300  FOR I=1 TO 2000:NEXT I:RETURN
  188.